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-- InternalNub.mesa; 
-- Edited by: 

Sandman on May 22, 1978 11:55 AM 

Barbara on July 18, 1978 3:22 PM 

Johnsson on July 18, 1978 2:47 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE, BytesPerPage , PageNumber], 
AltoFileDefs: FROM "altof il edef s" USING [CFP, eofDA. fillinDA, vDA], 
BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextOA. MakeCFP], 
BootDefs: FROM "bootdefs" USING [GetSys temTable] . 
ControlDefs: FROM "controldef s" USING [ 

ControlLink, FieldDescriptor , FrameHandle, GetReturnFrame, GetReturnLink, 

GlobalFrameHandle. Greg, Lreg, NullFrame, SetReturnFrame, SetReturnLink , 

StateVector], 
CoreSwapDefs: FROM "coreswapdef s" USING [ 

BBHandle, callDP, DebugParameter , ExternalStateVector, Puntlnfo, 

PuntTable, startDP, SVPointer, SwapReason, UBBPointer, UserBreakBlock] , 
DebugData: FROM "debugdata" USING [ 

DebuggeeFH, DebuggeeFP, DebuggerFP, SelfFP, userwindow], 
DebugMiscDefs: FROM "debugmiscdef s" USING [ 

DebugAbort, Debuglnit, Initial izeDebuggerFiles], 
DiskDefs: FROM "diskdefs" USING [DiskRequest , RealDA], 
FrameDefs: FROM "framedefs'* USING [LockCode, UnlockCode, UnNew] , 
ImageDefs: FROM "imagedefs" USING [ 

AbortMesa, AddFileRequest, FileRequest, StopMesa, UserCleanupProc] , 
InternalNubDefs: FROM "internalnubdef s" USING [InternalDebugCommand] , 
lODefs: FROM "iodefs" USING [ 

CR, NewLine, WriteChar, WriteLine, WriteOctal, WriteString], 
KeyDefs: FROM "keydefs" USING [Keys], 

LoadStateDefs: FROM "loadstatedef s" USING [GetLoadState, SetLoadState] , 
MiscDefs: FROM "miscdefs" USING [SetBlock], 
Mopcodes: FROM "mopcodes" USING [zRFS], 
NovaOps: FROM "novaops" USING [NovaJSR], 
NucleusDefs: FROM "nucleusdef s" USING [Wart], 
ProcessDefs: FROM "processdef s" USING [ 

Aborted, Disablelnterrupts , Enablelnterrupts] , 
SDDefs: FROM "sddefs" USING [ 

sBreakBlock, sBreakBlockSize, sCal IDebugger , sCoreSwap, SD, sFirstFree, 

slnterrupt, sProcessBreakpoint , sUncaughtSignal ] , 
SegmentDefs: FROM "segmentdef s" USING [ 

Append, CopyDataToFileSegment , CopyFileToDataSegment , DataSegmentAddress , 

DataSegmentHandle, DefaultBase, Defaul tVersion, DeleteDataSegment, 

DeleteFileSegment , EnumerateFileSegments , FileHandle, FileSegmentHandle, 

GetEndOf File, GetFil eSegmentDA, LockFile, NewDataSegment , NewFile. 

NewFileSegment, Read, ReleaseFile, SetEndOf Fi le , SetFileAccess, 

SetFileSegmentDA, UnlockFile, Write], 
SystemDefs: FROM "systemdefs" USING [PagesForWords] , 
TrapDefs: FROM "trapdefs" USING [Par ityError , PhantomParityError] , 
WindowDefs: FROM "windowdefs" USING [ 

GetCurrentDisplayWindow, Se tCu rr en tDisplayWindow, SetFileFor Window, 

WindowHandle]; 

DEFINITIONS FROM CoreSwapDefs; 

InternalNub: PROGRAM [user: PROGRAM] 

IMPORTS BFSDefs, BootDefs, DDptr: DebugData, DebugMiscDefs, DiskDefs, 
FrameDefs, ImageDefs, InternalNubDefs, lODefs, LoadStateDefs, MiscDefs. 
NucleusDefs, ProcessDefs, SegmentDefs, SystemDefs, frapDefs, WindowDefs 
EXPORTS CoreSwapDefs, InternalNubDefs 
SHARES BootDefs, SegmentDefs, ControlDefs = 

BEGIN 

FileHandle: TYPE = SegmentDefs . FileHandle; 

ProcessBreakpoint: PROCEDURE [s: CoreSwapDefs .SVPointer] « 
BEGIN -- called by BRK trap handler in resident code 
inst: AltoDefs. BYTE; 
swap: BOOLEAN; 

[inst, swap] <~ DoBreakpoint[s]; 
IF swap THEN 

BEGIN 

FrameDefs .LockCode[s .dest]; 

CoreSwap[breakpoint , s]; 

FrameDefs . UnlockCode[s . dest] ; 
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END 
ELSE s.instbyte ^ inst; --replant the instruction and go on 
RETURN 
END; 

DoBreakpoint: PROCEDURE [s: CoreSwapDef s .SVPointer] 
RETURNS [AltoDefs.BYTE, BOOLEAN] » 
BEGIN OPEN SDDefs; 
ubb: CoreSwapDefs.UBBPointer; 
bba: BBHandle = SD[sBreakB1ock] ; 
i: CARDINAL; 

1: ControlDef s . FrameHandle ♦- s.dest; 
FOR i IN [0.. bba. length) DO 

ubb ♦- @bba.b1ocks[i]; 

IF ubb. frame « l.accesslink AND ubb.pc « l.pc THEN 
IF TrueCondition[ubb, s. source] THEN EXIT 
ELSE RETURN[ubb.inst, FALSE]; 

ENDLOOP; 
RETURN[0, TRUE]; 
END; 

TrueCondition: PROCEDURE [ubb: CoreSwapDefs.UBBPointer, 
base: ControlDef s . FrameHandle] RETURNS [BOOLEAN] « 
BEGIN --decide whether to take the breakpoint 
fd: ControlDef s . FieldDescriptor ; 
left, right: UNSPECIFIED; 
IF ubb.counterL THEN 

RETURN[(ubb.ptrL <- ubb.ptrL f 1) = ubb.ptrR]; 
fd <- [offset: 0, posn: ubb.posnL, size: ubb.sizeL]; 
left <- IF -ubb.localL THEN ReadField[ubb .ptrL, fd] 
ELSE ReadField[(base + LOOPHOLE[ubb. ptrL, CARDINAL]), fd]; 
IF ~ubb.immediateR THEN 

BEGIN 

fd <- [offset: 0, posn: ubb.posnR, size: ubb.sizeR]; 

right <- IF -ubb.localR THEN ReadFiel d[ubb . ptrR, fd] 

ELSE ReadField[(base + LOOPHOLE[ubb . ptrR, CARDINAL]), fd]; 

END 
ELSE right <- ubb.ptrR; 
RETURN[SELECT ubb. relation FROM 
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ReadField: PROCEDURE [POINTER. ControlDef s . Fiel dDescriptor] RETURNS [UNSPECIFIED] = 
MACHINE CODE BEGIN Mopcodes . zRFS END; 

NumberBlocks: CARDINAL = 5; 

InitBreakBlocks: PROCEDURE « 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED <- SD; 
sd[sBreakBlock] *- @sd[sFirstFree] ; 

sd[sBreakBlockSize] ^ SIZE[UserBreakBlock]*NumberBlocks+l; 
sd[sFirstFree] ^ 0; 
RETURN 
END; 

SwatBreak: PROCEDURE [s: CoreSwapDef s .SVPointer] = 
BEGIN OPEN ControlDefs. NovaOps; 
break: RECORD[a.b: WORD]; 
break ^ [77400B, 1400B]; 
s.instbyte <- NovaJSR[JSR. ©break, 0]; 
RETURN 
END; 

Interrupt: PROCEDURE « 

BEGIN -- called by BRK trap handler in resident code 

state: ControlDefs .StateVec tor ; 

state <- STATE; 

state. dest ^ REGISTER[ControlDers .Lreg] ; 

CoreSwap[breakpoint, ©state]; 
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END; 

Catcher: PROCEDURE [msg, signal: UNSPECIFIED, f: ControlDef s. FrameHanclle] - 
BEGIN 

OPEN ControlDefs; 
SignallerGF: Global FrameHandle ; 
state: StateVector; 
frame: FrameHandle; 

SignallerGF <- GetReturnFrame[] .accessl ink; 
state. stk[0] ^ msg; 
state. stk[l] ♦- signal; 
state. stkptr <- 0; 

-- the call stack below here is: Signaller, [Signaller,] offender 
state. dest <- frame +- GetReturnFrame[] . return! ink. frame; 
IF frame. accessl ink = SignallerGF THEN state. dest ♦- frame. returnl ink; 
BEGIN 

CoreSwap[uncaughtsignal , 0state 

1 DebugMiscDefs.DebugAbort => GOTO Abort]; 
EXITS 
Abort «> 

IF signal = ProcessOefs .Aborted THEN 

BEGIN BackStop[f]; ERROR Ki 1 1 ThisTurkey ; END 

ELSE SIGNAL ProcessDefs .Aborted ; 
END; 
RETURN 
END; 

Backstop: PROCEDURE [root: ControlDef s . FrameHandle] « 
BEGIN OPEN ControlDefs; 

endProcess: ControlLink *- root . returnl ink; 
caller: PROCEDURE = LOOPHOLE[GetReturnLink[]] ; 
root. returnl ink ^ LOOPHOLE[REGISTER[Lreg]] ; 
SetReturnFrame[Nul 1 Frame]; 
caller[ 1 Kil IThisTurkey => CONTINUE]; 
SetReturnLink[endProcess]; 
RETURN 
END; 

KillThisTurkey: SIGNAL = CODE; 

CallDebugger: PROCEDURE « 
BEGIN 

state: ControlDef s .StateVector ; 
state. stkptr <- 0; 

state. dest *- ControlDef s .GetReturnLink[]; 
CoreSwap[expl icitcal 1 , Estate]; 
RETURN 
END; 

-- The non-Swapping information handlers 

ShowBreak: PROCEDURE [s: CoreSwapDef s .SVPointer] « 
BEGIN OPEN lODefs; 
IF '-NewLine[] THEN WriteChar[CR] ; 
WriteString["*** interrupt ***"L]; 
WriteChar['[]; 

WriteOctal[REGISTER[ControlDefs.Lreg]]; 
WriteChar[']]; 

InternalNubDefs. InternalDebugCommand[]; 
END; 

Showlnterrupt: PROCEDURE = 
BEGIN 
RETURN 
END; 

ShowSignal: PROCEDURE [msg, signal: UNSPECIFIED, f: ControlDef s . FrameHandle] 
BEGIN OPEN lODefs; 
IF '-NewLine[] THEN WriteChar[CR]; 
SELECT signal FROM 

TrapDef s . PhantomParityError , TrapDef s .ParityError «> 
BEGIN 

IF signal « TrapDefs .PhantomParityError THEN WriteString["Phantom "L]; 
WriteString[ "Parity Error"L]; 
IF signal = TrapDef s . Par ityError THEN 
BEGIN 
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WriteString[" at "L]; 
WriteOctal[msg]; 
END; 
WriteLine[" ... Proceedingl "L]; 
RETURN; 
END; 
ENDCASE; 
WriteString["*** uncaught SIGNAL "L]; 
WriteOctal [signal ] ; 
WriteString[", msg « "L]; 
WriteOcta1[msg]; 
WriteChar[' ]; 
WriteChar['[]; 

WriteOctal[REGISTER[Contro1Defs.Lreg]]; 
WriteChar[']]; 

InternalNubDefs. In terna1DebugCommancl[] ; 
END; 

GetDebuggerNub: PROCEDURE « 
BEGIN 

InternalNubDefs. Internal Deb ugCommand[] ; 
END; 

PauseAtDebuggerNub: PROCEDURE » 
BEGIN OPEN SDDefs; 

BEGIN ENABLE UNWIND => SD[sCal 1 Debugger] <- PauseAtDebuggerNub; 
SD[sCanDebugger] *- CallDebugger; 
InternalNubDefs. Internal Deb ugCommantl[] ; 
SD[sCal IDebugger] <- PauseAtDebuggerNub; 
END; 
END; 

-- The core swapper 

Quit: SIGNAL = CODE; 

DoSwap: PORT [POINTER TO ExternalStateVector] ; 

parmstring: STRING <- [40]; 

CoreSwap: PUBLIC PROCEDURE [why: SwapReason, sp: SVPointer] = 
BEGIN OPEN NovaOps; 

e: ExternalStateVector; 

DP: DebugParameter ; 

decode: PROCEDURE RETURNS [BOOLEAN] » 

BEGIN OPEN ControlDefs; -- decode the SwapReason 
f: Global FrameHandle; 
Isv: StateVector; 
SELECT e. reason FROM 

proceed, resume => RETURN[TRUE] ; 
call => 
BEGIN 

Isv ^ L0OPH0LE[e. parameter, callDP].sv; 
Isv. source ^ REGISTER[Lreg] ; 
TRANSFER WITH Isv; 
Isv ^ STATE; 

L00PH0LE[e. parameter, callDP].sv <r isv; 
why <- return; 
END; 
start => 
BEGIN 

f <- L00PH0LE[e. parameter , star tDP] .frame; 

IF -f. started THEN START L00PH0LE[f, PROGRAM] ELSE RESTART f; 
why <- return; 
END; 
quit => SIGNAL Quit; 
kill «=> ImageDef s . AbortMesa[]; 
showscreen «> 
BEGIN 

UNTIL KeyDefs. Keys. Spares = down DO NULL ENDLOOP; 
why ^ return; 
END; 
ENDCASE «> 
BEGIN 

RETURN [TRUE]; 
END; 
RETURN [FALSE] 
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END; 

-- Body of CoreSwap 

BEGIN OPEN LoadState: LOOPHOLE[0. extension . 1 oadstate, SegmentDef s .FileSegmentHandle] ; 

e. state <- sp; 

e.drumFile <- SelfFH; -- actually filehandle for DDptr.SelfFP 

DP. string <- parmstring; 

e. parameter *- @DP; 

e. tables <- BootDef s .GetSystemTab1e[] ; 

e. extension. loadstate ^ LoadStateDef s ,GetLoadState[] ; 

e.loadstateCFA.fp ^ LoadState. f ile.fp ; 

e. loadstateCFA. fa ^ [page: LoadState. base, byte: 0, 

da: SegmentDef s.GetFi leSegmentDA[6Lo adSt ate]] ; 
e.lspages <- LoadState. pages ; 
e.fill ^ [0,0,0]; 

DO 

e. reason <- why; 

ImageDefs .UserCleanupProc[OutLd] ; 

Process Defs.DisableInterrupts[]; 

DoSwap[@e]; 

ProcessDef s .Enablelnterrupts[]; 

ImageDefs .UserCleanupProc[InLd]; 

IF decode[ 1 

DebugMiscDef s .OebugAbort => 

IF e.level>0 THEN BEGIN why ^ return; CONTINUE END; 
Quit => GOTO abort] THEN EXIT 
REPEAT abort => SIGNAL DebugMiscDef s .DebugAbort; 
ENDLOOP; 
END; 

RETURN 
END; 

SetSwappableSD: PUBLIC PROCEDURE « 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED = SD; 
sd[sProcessBreakpoint] <- ProcessBreakpoint; 
sd[sUncaughtSignal ] <- Catcher; 
sd[slnterrupt] ^ Interrupt; 
sd[sCallDebugger] <- PauseAtDebuggerNub; 
END; 

SetNonSwappableSD: PUBLIC PROCEDURE » 
BEGIN OPEN SDDefs; 

sd: POINTER TO ARRAY [0..0) OF UNSPECIFIED = SD; 
sd[sProcessBreakpoint] <- ShowBreak; 
sd[sUncaughtSignal ] *- ShowSignal ; 
sd[slnterrupt] <- Showlnterrupt ; 
sd[sCal IDebugger] *- GetDebuggerNub; 
END; 

-- File Lookup 

FileRequest: TYPE = ImageDefs . FileRequest; 

DebuggerFR: short FileRequest ^ FileRequest[f ile: NIL, link:, 

access: SegmentDef s .Read, body: short[fill:, name: "MesaDebugger . "]] ; 

CoreFR: short FileRequest <- FileRequest[f ile: NIL, link:, 

access: SegmentDef s .Read, body: short[fin:, name: "MesaCore. "]] ; 

SwatFR: short FileRequest «- FileRequest[f ile: NIL, link:, 

access: SegmentDeFs .Read, body: short[fin:, name: "Swatee. "]] ; 

DebugDebuggerFR: short FileRequest *- FileReques t[f ile: NIL. link:, 

access: SegmentDef s. Read, body: short[fill:, name: "MesaOebugDebugger."]]; 

SelFFH: FileHandle; 
puntData: PuntTable; 

RequestFiles: PROCEDURE » 
BEGtN 
DebuggerFR. file <~ NIL; 
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CoreFR.file <- NIL; 

SwatFR.file ^ NIL; 

DebugDebuggerFR.f ile ^ NIL; 

ImageDefs .AddFneRequest[©DebuggerFR]; 

ImageDefs.AdcJFileRequestfeCoreFR]; 

ImageDefs . AddFil eRequest[0SwatFR] ; 

ImageDefs. Ad dFi1eRequest[0DebugD8buggerFR]; 

END; 

DebuggerDebuggerlnstall : PUBLIC PROCEDURE » 
BEGIN OPEN^SegmentDefs; 
debuggee: FileHandle; 
MoveLoadState[0DebugDebuggerFR]; 

[SelfFH, DDptr.SelfFP.leaderDA] ^ F JxFi1e[@DebugDebuggerFR, ©DDptr .Self FP] ; 
[debuggee, DDptr .DebuggeeFP . leaderDA] <- 

FixFile[0DebuggerFR, QDDptr .DebuggeeFP] ; 
DDptr. DebuggerFP <- DDptr .Self FP; 
DDptr. DebuggeeFH ^ debuggee; 

DebugMiscDefs. Initial izeDebuggerFiles [debuggee]; 
SetupPuntESV[FALSE, NIL]; 
SetNonSwappableSD[]; 
ChangeTypescript[] ; 
RESTART DebugMiscDefs. Debuglnit; 
END; 

Install: PUBLIC PROCEDURE = 
BEGIN OPEN SegmentDefs; 
swappable: BOOLEAN <- FALSE; 
debuggee: FileHandle; 

[SelfFH. DDptr.SelfFP.leaderDA] *- FixFile[@DebuggerFR, @DDptr.Self FP]; 
IF CoreFR.file # NIL THEN 

BEGIN 

[debuggee, DDptr, DebuggeeFP. leaderDA] <- 
FixFile[@CoreFR, QDDptr .DebuggeeFP] ; 

ReleaseFile[SwatFR.f ile]; 

END 
ELSE [debuggee, DDptr .DebuggeeFP. leaderDA] ♦- 

FixFile[@SwatFR, ©DDptr .DebuggeeFP] ; 
IF DebugDebuggerFR.file ^ NIL THEN 

BEGIN 

swappable ♦- TRUE; 

[, DDptr .DebuggerFP. leaderDA] <- 

FixFile[@DebugDebuggerFR, @DDptr .DebuggerFP]; 

END; 
DDptr .DebuggeeFH ♦- debuggee; 

DebugMiscDefs. Initial izeDebuggerFiles [debuggee] ; 
SetupPuntESV[swappable, IF swappable THEN SelfFH ELSE NIL]; 
IF swappable THEN SetSwappableSD[] ELSE SetNonSwappableSD[] ; 
RESTART DebugMiscDefs. Debuglnit; 
END; 

FixFile: PROCEDURE [ 
fr: POINTER TO short FileRequest, p: POINTER TO Al toFi leDef s .CFP] 
RETURNS [f: FileHandle, da: Al toFileDef s. vDA] - 

BEGIN OPEN SegmentDefs; 

s: FileSegmentHandle; 

pages: Al toDef s .PageNumber; 

bytes: CARDINAL; 

IF (f ^ fr.file) = NIL THEN f *- 

NewFile[f r .name, Read-^Write+Append, Def aul tVersion] 

ELSE SetFileAccess[f , Read+Write+Append] ; 

LockFile[f]; 

[pages, bytes] ^ GetEndOfFile[f ] ; 

IF pages < 256 OR (pages == 255 AND bytes < Al toDef s .BytesPerPage) THEN 
SetEndOfrile[f , 255. Al toDefs .BytesPerPage] ; 

s ^ SegmentDefs .NewFileSegment[f , 1, 1 .SegmentDefs .Read] ; 

BFSDefs.MakeCFP[p.0f .fp]; 

da *- L00PH0Lr_[DiskDefs.RealDA[SegmentDefs,6etFileSegmentDA[s]]]; 

SegmentDefs .DeleteFileSegment[s] ; 

UnlockFile[f]; 

RETURN[f. da]; 

END; 

SetupPuntESV: PROCEDURE [swappable: BOOLEAN, file: FileHandle] « 

BEGIN OPEN LoadState: LOOPHOLE[puntDa ta. puntESV. extens ion . loadstate , SegmentDefs . FileSegmentHandle] 
*, ControlDefs, Al toFileDef s ; 
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puntData.puntESV. reason *■ punt; 

puntData.puntESV. tables ^ BootDef s .GetSysteniTable[] ; 

puntData.puntESV. druniFile <- file; 

puntData.puntESV. extension. load state <- LoadStateDefs .GetLoadState[] ; 

puntData.puntESV. loadstateCFA.fp ^ LoadState. f ile. f p; 

puntData. puntESV. loadstateCFA.f a <- [page: LoadState. base, 

byte: 0, da: SegmentDef s.GetFileSegmentDA[@LoadState]] ; 
puntData. puntESV. 1 spages ^ LoadState .pages; 
IF swappable THEN 

BEGIN 

puntData. pDebuggerFP ♦- @DDptr.DebuggerFP; 

pun tData. debuggerFP <- DDptr .DebuggerFP; 

puntData. pCoreFP *- QDDptr .Self FP; 

puntData. coreFP ^ DDptr. Self FP; 

END 
ELSE puntData. pDebuggerFP <- puntData. pCoreFP <- LOOPHOLE[0]; 
Puntlnfot ^ epuntData; 
puntData. puntESV. fill ♦- [0,0,0]; 
END; 

ChangeTypescript: PROCEDURE » 
BEGIN OPEN WindowDefs; 

w: WindowHandle <- GetCurrentDispl ayWindow[] ; 
SetFi1eForWindow[w, " Internal Debug. ts."]; 
SetFileForWindow[ DDptr .userwindow, "Debug .Typescript. "] ; 
SetCurrentDispl ay Window[ DDptr .userwindow] ; 
SetCurrentDisplayWindow[w] ; 
END; 

MoveLoadState: PROCEDURE [fr: POINTER TO short FileRequest] « 
BEGIN OPEN SegmentDefs; 
f: FileHandle; 

new, old: FileSegmentHandle ; 
temp: DataSegmentHandle; 
old <- LoadStateDefs. GetLoadState[]; 
IF (f <- fr.file) = NIL THEN f ^ fr.file <- 

NewFile[f r.name, Read+Write+Append, Def aul tVersion] 
ELSE SetFileAccess[f , Read+Write+Append]; 
SetEndOfFile[f , 255+ol d .pages , Al toDef s .BytesPerPage]; 
temp *- NewDataSegment[Def aul tBase, old. pages]; 
new <- NewFileSegment[f , 256, old. pages, Read+Write]; 
CopyFileToDataSegment[old, temp] ; 
CopyDataToFileSegment[temp, new] ; 
Del eteDataSegment[ temp]; 
DeleteFileSegment[old]; 
LoadStateDefs .SetLoadState[new] ; 
END; 

CollectDiskAddresses: PROCEDURE « 

BEGIN OPEN SystemDefs, SegmentDefs, Al toFil eDef s; 
ImageFile: FileHandle = 

LOOPHOLE [REGISTER[Control Def s. Greg], Global FrameHandle] . codesegment. file; 
DAs: DESCRIPTOR FOR ARRAY OF vDA; 
maxunknown, maxknown: CARDINAL ^ FIRST[CARDINAL] ; 
minunknown: CARDINAL *- LAST[CARDINAL]; 
maxknownDA: vDA; 

DisplayHead: POINTER TO WORD = LOOPHOLE[420B] ; 
DisplayTnterruptWord: POINTER TO WORD = L00PH0LE[421B] ; 
saveDisplay, saveDiw: WORD; 
diskrequest: DiskDef s .DiskRequest; 
bufseg, DAseg: DataSegmentHandle; 

FindEnds: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] =» 
BEGIN 

WITH s: seg SELECT FROM 
disk =»> 

IF s.file = ImageFile AND s. hint. da ^ eofDA THEN 
BEGIN 

maxunknown <- MAX[maxunknown , s . base] ; 
minunknown ^ MIN[minunknown , s. base] ; 
END; 
ENDCASE; 
RETURN[FALSE]; 
END; 
FindKnown: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] « 
BEGIN 
WITH s: seg SELECT FROM 
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disk ■> 

IF s.filQ a ImageFile AND s. hint. da ff eofDA AND s.base < minunknown 
AND s.base > maxknown THEN 

BEGIN maxknown *• s.base; maxknownDA ♦- s. hint. da END; 
ENDCASE; 
RETURN[FALSE]; 
END; 
PlugDA: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

WITH s: seg SELECT FROM 
disk "> 

IF s.file o ImageFile AND s. hint. da « eofDA AND 
s.base IN (maxknown . .maxunknown] THEN 
SegmentDefs.SetFneSegmentDA[@s,DAs[ s.base]]; 
ENDCASE; 
RETURN[FALSE]; 
END; 

saveDisplay ^ DisplayHeadt; 
saveDiw «- DisplaylnterruptWordt; 
DisplayHeadt ^ DisplaylnterruptWordt <r O; 
[] <- EnumerateFi1eSegments[FindEnds] ; 
[] *- EnumerateFileSegments[FindKnown] ; 
bufseg ^ NewDataSegment[Deraul tBase, 1]; 
DAseg ^ NewDataSegment[ 

Defaul tBase, PagesForWords[maxunknown-maxknown+3]]; 
DAs <- DESCRIPTOR[DataSegmentAddress[DAseg]-(maxknown-l) ,maxunknown+2]; 
diskrequest ^ DiskDef s .DiskRequest [ 

ca: DataSegmentAddress[buFseg], 

fixedCA: TRUE, 

da: @DAs[0]. 

fp: ©ImageFile. fp, 

firstPage: maxknown, 

lastPage: maxunknown, 

action: ReadD. 

lastAction: ReadD, 

signalCheckError: FALSE, 

option: update[c1eanup: BFSDef s .GetNextDA]]; 
MiscDef s .SetB1ock[@DAs[maxknown-l],f il 1 i nDA, maxunknown -maxknown +3 ] ; 
DAs[maxknown] *- maxknownDA; 

[] <- BFSDef s. ActOnPages[LOOPHOLE[@diskrequest]] ; -- we know it is an Update diskrequest 
[] *r EnumerateFi1eSegments[PlugDA]; 
Del eteDataSegment[ DAseg]; 
Del eteDataSegment[ bufseg]; 
DisplayHeadt ^ saveDisplay; 
DisplaylnterruptWordt <- saveDiw; 
RETURN; 
END; 

GlobalFrameHandle: TYPE « ControlDefs .Global FrameHandle; 

-~ Main body 

P: TYPE = MACHINE DEPENDENT RECORD [in, out: UNSPECIFIED]; -- PORT 

SetNonSwappableSD[]; 

SDDefs.SD[SDDefs,sProcessBreakpoint] <- SwatBreak; 

LOOPHOLE[DoSwap,P] ^ [in: 0, out: SDDef s . SD[SDDef s . sCoreSwap]] ; 

InitBreakBlocks[]; 

RequestFiles[]; 

START user; 

STOP; 

Col lectDiskAddresses[]; 

FrameDefs.UnNew[LOOPflOLE[NucleusDefs.Wart, GlobalFrameHandle]]; 
SDDefs.SD[SDDefs.sProcessBreakpoint] <- ShowBreak; 
RESTART user; 

ImagoDef s .StopMesa[]; 

END. . . 



